VB使用WebBrowser读取网页内容 - kooyee ‘s blog - BlogJava   
            kooyee ‘s blog
            开源软件， 众人努力的结晶， 全人类的共同财富 

      posts - 103, comments - 33, trackbacks - 0, articles - 66   :: 首页 :: 新随笔 
      :: 联系 :: 聚合  :: 管理 
       
      日历
                  <2008年7月>

            日一二三四五六
            293012345
            6789101112
            13141516171819
            20212223242526
            272829303112
            3456789

       
      公告
      一起畅游计算机的世界 
       
      常用链接
        我的随笔 
        我的文章 
        我的评论 
        我的参与 
        最新评论 
       
      留言簿(5)
        给我留言 
        查看公开留言 
        查看私人留言 
       
      随笔分类
        AI 人工智能(1) 
        Ajax学习手记(2) 
        C/C++(1) 
        Database数据库技术(4) 
        Groovy on Grails(1) 
        GUI骨衣 (6) 
        J2EE(1) 
        Jasper Report (2) 
        Java (15) 
        Lniux/Unix (14) 
        Regular Expression正则表达式 
        Software(1) 
        Software Engineering 软件工程(2) 
        Swing/Applet(19) 
        Web Design网页设计 (4) 
        Web Framework 网络框架(1) 
        Windows (2) 
        Wireless Ad-hoc and sensor network(4) 
        开源 OpenSource(1) 
       
      随笔档案
        2009年1月 (1) 
        2008年12月 (3) 
        2008年11月 (3) 
        2008年10月 (2) 
        2008年7月 (2) 
        2008年6月 (22) 
        2008年5月 (3) 
        2008年4月 (2) 
        2008年3月 (10) 
        2008年2月 (14) 
        2008年1月 (5) 
        2007年12月 (6) 
        2007年11月 (5) 
        2007年10月 (5) 
        2007年9月 (2) 
        2007年8月 (17) 
       
      搜索
         
       
      积分与排名
        积分 - 36833 
        排名 - 325 
       
      最新评论 
        1. re: 『SWT』Get all children from TreeView 
        我是用线程，然后在后台处理的。 
        --javawind 
        2. re: 『SWT』Get all children from TreeView 
        评论内容较长,点击标题查看 
        --fy_kenny 
        3. re: 【linux脚本】bad interpreter: No such file or directory[未登录] 
        强烈感谢 
        --stone 
        4. re: 『SWT』Eclipse开发经典教程：SWT事件 
        很不错，介绍的挺详细，谢谢 
        --renqpku 
        5. re: 【Bug】当调用nam时错误 
        麻烦告诉一下tk-8.4.18-tkBind.patch怎么下啊？ 
        或者也给我发邮箱吧。bingye2962@163.com。谢谢了。 
        --bingye 

       
      阅读排行榜
        1. 『虚拟机』Sun xVM VirtualBox使用手记(1176) 
        2. 【linux脚本】bad interpreter: No such file or directory(1083) 
        3. 【J2EE开发日记】 MyEclipse快捷键与插件大全(1069) 
        4.  VB使用WebBrowser读取网页内容(884) 
        5. 【Bug】当调用nam时错误(858) 
      VB使用WebBrowser读取网页内容 
      Posted on 2008-07-11 09:55 kooyee 阅读(884) 评论(5)  编辑  收藏  
      '得到当前browser的页面字体内容
      Public Function getWebContent()Function getWebContent(browser As 
      WebBrowser) As String
          Dim doc As Object
          Dim i As Object
          Dim strHtml As String
          
          Set doc = browser.Document
          For Each i In doc.All
              strHtml = strHtml & Chr(13) & i.innerText
          Next
          getWebContent = strHtml
      End Function上面这个函数可以得到browser中所有文字信息.

      '得到当前browser的页面Html内容
      Public Function getWebHtml()Function getWebHtml(browser As WebBrowser) As 
      String
          Dim doc As Object
          Dim i As Object
          Dim strHtml As String
          
          Set doc = browser.Document
          For Each i In doc.All
              strHtml = strHtml & Chr(13) & i.innerHtml
          Next
          getWebHtml = strHtml
      End Function 上面这个函数可以得到browser页面的HTML代码.


      评论
      # re: VB使用WebBrowser读取网页内容  回复  更多评论    
      2008-10-16 21:18 by work_man 
      请问，如何调用呢？
      # re: VB使用WebBrowser读取网页内容  回复  更多评论    
      2008-10-18 21:24 by kooyee 
      看看这段代码 

      Dim vDoc, vTag 

      Dim i As Integer 

      Set vDoc = WebBrowser1.Document 

      For i = 0 To vDoc.All.Length - 1 '检测所有标签 

      If UCase(vDoc.All(i).innerText) = "INPUT" Then '找到input标签 

      Set vTag = vDoc.All(i) 

      # re: VB使用WebBrowser读取网页内容  回复  更多评论    
      2008-11-24 20:13 by 肖子详 
      Private Sub Command1_Click() 
      WebBrowser1.Navigate "http://www.baidu.com" 
      End Sub 

      Private Sub Command2_Click() 
      Dim vDoc, vTag 

      Dim i As Integer 

      Set vDoc = WebBrowser1.Document 

      For i = 0 To vDoc.All.Length - 1 '检测所有标签 

      If UCase(vDoc.All(i).innerText) = "INPUT" Then '找到input标签 

      Set vTag = vDoc.All(i) 
      End If 
      Next 
      Text1.Text = vTag 

      End Sub 


      还是不可以？上面是我做的我想把读到的内容存到TEXT1.TEXT中？
      # re: VB使用WebBrowser读取网页内容  回复  更多评论    
      2008-11-24 20:34 by 肖子详 
      我试过了可以读到网页里的文字信息，TKS 

      但读的HTML代码.会乱码.
      # re: VB使用WebBrowser读取网页内容[未登录]  回复  更多评论    
      2008-11-26 01:14 by kooyee 
      是不是不支持unicode？
      IT新闻  新用户注册  刷新评论列表  



            标题请输入标题
            姓名请输入你的姓名
            主页
                  请输入验证码 
                  验证码*  

            内容(请不要发表任何与政治相关的内容) 请输入评论内容


            Remember Me?
               登录  使用高级评论  新用户注册  返回页首  恢复上次提交       
            [使用Ctrl+Enter键可以直接提交]





            网站导航:
            博客园      BlogJava   博客生活   IT博客网   C++博客   PHP博客   博客园社区 
            管理博客   教师博客     天文博客   汽车博客   足球博客   股票博客   电子博客  管理 





      Powered by: 
      BlogJava 
      Copyright © kooyee 

